#lang racket

(define-struct spider (leg volume))
(define-struct elephant (volume))
(define-struct monkey (iq volume))

(define (fits animal)
  (cond
    [(spider? animal) (< (spider-volume animal) 5)]
    [(elephant? animal) (< (elephant-volume animal) 1000)]
    [(monkey? animal) (< (monkey-volume animal) 100)]
    )
  )


;Test
(define a-spider (make-spider 18 2))
(define a-elephant (make-elephant 800))
(define a-monkey (make-monkey 80 120))

(fits a-spider)
(fits a-elephant)
(fits a-monkey)